home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1996 #2 / Amiga Plus CD - 1996 - No. 2 Extra.iso / clarissa1_1-demo / macros / spezialtext.clssa < prev    next >
Text File  |  1996-02-18  |  3KB  |  76 lines
  1. /***********************************************************************
  2.   $DAT >>SpezialText.clssa<<  18.02.1996 - (C) ProDAD
  3. ************************************************************************/
  4.  
  5. OPTIONS RESULTS
  6. ADDRESS clariSSA
  7.   ARG wann
  8.  
  9.   IF wann~="S" & wann~="E" THEN wann="S"
  10.  
  11.   FailAt 99
  12.   AltFail=RESULT
  13.  
  14.   DO FOREVER
  15.     IF wann="S" THEN DO
  16.       MSRequester "TITLE '** Begrüßung **'",
  17.                         "''",
  18.                         "'Das ist eine Demoversion der'",
  19.                         "'clariSSA V 1.1'",
  20.                         "''",
  21.                         "'****************************************'",
  22.                         "''",
  23.                         "'proDAD'",
  24.                         "'Feldelestraße 24'",
  25.                         "'78194 Immendingen'",
  26.                         "''",
  27.                         "'Tel. 07462/91134'",
  28.                         "'Fax. 07462/7435'",
  29.                         "''",
  30.                         "'****************************************'",
  31.                         "''",
  32.                         "'Wollen Sie noch weitere Informationen zu ...'",
  33.                   "PTEXT 'clariSSA 3.0 professional'",
  34.                         "'clariSSA 3.0 professional EASY'",
  35.                         "'Upgradepreise'",
  36.                         "'** clariSSA starten **'"
  37.       IF RC~=0 | RESULT>3 THEN LEAVE
  38.       IF RESULT=1 THEN Address COMMAND 'Macros/Anforderung.clssa 1'
  39.       IF RESULT=2 THEN Address COMMAND 'Macros/Anforderung.clssa 2'
  40.       IF RESULT=3 THEN Address COMMAND 'Macros/Anforderung.clssa 3'
  41.     END
  42.  
  43.     IF wann="E" THEN DO
  44.       MSRequester "TITLE '** Verabschiedung **'",
  45.                         "''",
  46.                         "'Sie haben mit einer Demoversion der'",
  47.                         "'clariSSA V 1.1 gearbeitet.'",
  48.                         "''",
  49.                         "'****************************************'",
  50.                         "''",
  51.                         "'proDAD'",
  52.                         "'Feldelestraße 24'",
  53.                         "'78194 Immendingen'",
  54.                         "''",
  55.                         "'Tel. 07462/91134'",
  56.                         "'Fax. 07462/7435'",
  57.                         "''",
  58.                         "'****************************************'",
  59.                         "''",
  60.                         "'Wollen Sie noch weitere Informationen zu ...'",
  61.                   "PTEXT 'clariSSA 3.0 professional'",
  62.                         "'clariSSA 3.0 professional EASY'",
  63.                         "'Upgradepreise'",
  64.                         "'** clariSSA beenden **'"
  65.       IF RC~=0 | RESULT>3 THEN LEAVE
  66.       IF RESULT=1 THEN Address COMMAND 'Macros/Anforderung.clssa 1'
  67.       IF RESULT=2 THEN Address COMMAND 'Macros/Anforderung.clssa 2'
  68.       IF RESULT=3 THEN Address COMMAND 'Macros/Anforderung.clssa 3'
  69.     END
  70.  
  71.     /*LEAVE*/
  72.   END
  73.  
  74.   FailAt AltFail
  75. exit
  76.